home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1987 February
/
1987-02.d64
/
data format-2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
729b
|
41 lines
398 rem * program two *
399 rem * floating point demo *
400 dimn$(80)
410 c1=.5:c2=1:c3=100:pn=1000:nn=-1000
420 print"[147]printer? (y/n) ";
430 geta$:ifa$=""then430
440 de=3:ifa$="y"thende=4
450 opende,de
460 print"[147]generating random data #"
470 forx=1to80
480 s=rnd(-ti)
490 v=(nn-pn+c2)*rnd(1)+pn
500 gosub5000
510 print""spc(24)x
520 n$(x)=n$
530 next
540 a=1:b=4
550 fory=1to20
560 print#de
570 fori=atob
580 print#de,spc(9-len(n$(i)))n$(i);
590 next
600 a=a+4
610 b=b+4
620 next
630 print#de:closede
640 printspc(10)"hit a key for more"
650 getk$:ifk$=""then650
660 goto420
4999 rem *** decimal format routine ***
5000 n$=str$(int(v*c3+c1)/c3)
5010 lo=len(n$)
5020 forj=2tolo
5030 ifmid$(n$,j,1)="."thenfr=lo-j:j=lo
5040 next
5050 onfr+c2goto5070,5080,5090
5060 n$=left$(n$,lo-fr+2):goto5090
5070 n$=n$+".00":return
5080 n$=n$+"0"
5090 fr=0:return